* lisp/wdired.el (wdired--self-insert): Put symbol property delete-selection.

diff --git a/lisp/wdired.el b/lisp/wdired.el
index ff42d784e5f491e96a0a0e743770e3f160b23a5c..05b0a0cfb2b37d8fa4d561818b969c458c607f74 100644 (file)
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -292,6 +292,8 @@ or \\[wdired-abort-changes] to abort changes")))
       (call-interactively (or (if map (lookup-key map (this-command-keys)))
                               #'self-insert-command)))))
 
+(put 'wdired--self-insert 'delete-selection 'delete-selection-uses-region-p)
+
 (defun wdired--before-change-fn (beg end)
   (save-excursion
     ;; Make sure to process entire lines.